Option Explicit
Function Q_Sample014(myEnglishStr As String) As String
    ']wޥζMicrosoft Internet Controls
    Dim myIE As InternetExplorer
    'w½ĶURLf(dҪu^Ķ)
    Const myUrl As String = "http://www.excite.co.jp/world/text/"
    Set myIE = GetObject(, "InternetExplorer.application")
    With myIE
        .Navigate myUrl
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        .Document.all("before").Value = myEnglishStr
        .Document.all("start").Click
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        Q_Sample014 = .Document.all("after").Value
        .Quit
    End With
    Set myIE = Nothing                                          '
End Function

Sub Q_Sample014_1()
         MsgBox Q_Sample014("I love you")                       'w^
End Sub

